home *** CD-ROM | disk | FTP | other *** search
/ Aminet 25 / Aminet 25 (1998)(GTI - Schatztruhe)[!][Jun 1998].iso / Aminet / util / wb / Explorer.lha / Explorer / Install_DIZ-Explorer < prev   
Encoding:
Text File  |  1998-01-16  |  21.6 KB  |  576 lines
  1. ; Installer script for the Diz-Explorer program
  2. ;******************************************************************************
  3. ;     _  _      ____
  4. ;    / \/ \    /___ |   
  5. ;   / /\/\ \     _ ||
  6. ;  / / /\ \ \   |_|||
  7. ; / / /  \ \ \ ____||
  8. ;/_/ /_/\_\ \_\\____|
  9. ;
  10. ; $VER: 3.00_Diz-Explorer_Installer (Nov-24-1997) 
  11. ; 
  12. ; If you wish to use any part of this installer you must ask us.
  13. ;
  14. ; Installer    by Jochen Grus & Martin Gentile ©1996, 1997 
  15. ; Diz-Explorer by Jochen Grus ©1997,98 
  16. ; Last Update: Dec-3-1997
  17. ;******************************************************************************
  18. (procedure Explor (set JOH 1) ( (while (< JOH 4444)  (set JOH (+ JOH 1)) )  ) )
  19.  
  20. (procedure InformX
  21. (working (cat "\n\n"
  22.               " LHA  TAR\n"
  23.               " LZX  TGZ\n"
  24.               " DMS  EXE\n"
  25.               " ARJ  SIT\n"
  26.               " ARC  LZH\n"
  27.               " ZOO  RAR\n"
  28.               " ZIP  LZ\n"
  29.               " \n"
  30.          )           
  31. )
  32. )
  33. (procedure InformY
  34. (working (cat "\n\n"
  35.               "\n"
  36.               "\n"
  37.               "Diz-Explorer Pro Version 3.2\n"
  38.               "\n"
  39.               "by\n"
  40.               "\n"
  41.               "   Jochen Grus & Martin Gentile   \n"
  42.               "\n"
  43.          )           
  44. )
  45. )
  46. (InformY)
  47.  
  48. (Explor)(Explor)
  49. (InformX)(Explor)
  50. (InformY)(Explor) (InformX)(Explor)
  51. (InformY)(Explor) (InformX)(Explor)
  52. (InformY)(Explor) (InformX)(Explor)
  53. (InformY)(Explor) (InformX)(Explor)
  54. (InformY)(Explor) (InformX)(Explor)
  55. (InformY)(Explor) (InformX)(Explor)
  56. (InformY)(Explor) (InformX)(Explor)
  57. (InformY)(Explor) (Explor) (Explor)
  58.  
  59. ;*** System Stuff ***
  60. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  61. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  62. (set osver (/ (getversion "LIBS:version.library") 65536))
  63. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  64. (set fastmem (- totmem graphmem))
  65.  
  66. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  67. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  68. (if (= osver 41) (set workbench "3.5"))
  69.  
  70. (set cpu (database "cpu"))
  71. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  72. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  73. (if (= cpu 68040) (set #cpu 4)) 
  74. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  75. (if (> (exists ("sys:libs/ppc.library")) 0) (set #cpu 6) )
  76.  
  77. (if (> cpu 68010)  (set #fpuGuess 0)  (set #fpuGuess 1) )
  78.    
  79. (set vernum1 (getversion "Explorer")) (set ver2 (/ vernum1 65536)) 
  80. (set rev1 (- vernum1 (* ver1 65536) ) ) (set Explorerver (cat ver1 "3.2" rev1))
  81.  
  82. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  83. (set lan 0)
  84.  
  85. (if (= "english"     lanfound) (set lan 0))
  86. (if (= "deutsch"     lanfound) (set lan 1))
  87. (if (= "italiano"    lanfound) (set lan 2)) 
  88. (if (= "francais"    lanfound) (set lan 3)) 
  89. (if (= "svenska"     lanfound) (set lan 4)) 
  90. (if (= "norsk"       lanfound) (set lan 5)) 
  91. (if (= "nederlands"  lanfound) (set lan 6)) 
  92. (if (= "dansk"       lanfound) (set lan 7)) 
  93.  
  94. (set #English       "English")
  95. (set #Deutsch       "Deutsch")
  96. (set #Italiano     "Italiano")
  97. (set #Francais     "Francais")
  98. (set #Svenska       "Svenska")
  99. (set #Norsk           "Norsk")
  100. (set #Nederlands "Nederlands")
  101. (set #Dansk           "Dansk")
  102.  
  103. (set mfound 0) (set newicon1 1) 
  104. (set keeper 1) (set firsttime 0)
  105.  
  106. ;***********************************************************************
  107. ; The English Installation Strings
  108. ;***********************************************************************
  109. (set #about (cat "\n\n\n\nWelcome to the Diz-Explorer PRO Version " Explorerver "\n\n\nCopyright © 1997,98 by\n\nJochen Grus & Martin Gentile\n") )
  110. (set #aboutpacker (cat "\n\n\n\nNow you should copy all packers to the >C< directory. Before the installation you should check the versions! ") )
  111. (set #aboutdevices (cat "\n\n\n\nNow you should copy all devices to the >DEVS< directory. Before the installation you should check the versions! ") )
  112. (set #aboutlhacheck (cat "\n\n\n\n                - W A R N I N G -               Installation found the following file in the C-directory: LHACHECK. You should delete this file because it has the BBS-Trojan VIRUS!!! ") )
  113. (set #askcpu "\nThe installer has found the following CPU:\n")
  114. (set #askcpu2 "\nThe installer program has found a CPU. The installer should show correctly what kind of cpu is installed...\n")
  115. (set #whereExplorer "Where do you wish to install the Diz-Explorer. A directory called 'Explorer' will be created if one is not there. If a copy of Explorer is found it will be backed up.")
  116. (set #filethere1 "\n\nThe installer has found an Explorer version ")
  117. (set #filethere2 " at ")
  118. (set #filethere3 "\n\nThe file will be renamed to ")
  119. (set #filethere4 " and it will then be moved to ")
  120. (set #backuptoXXX "Back-UP to file named 'Diz-Explorer.")
  121. (set #copyover "Copy Over Old Version")
  122. (set #oktodelete1 "\nIs it ok to delete the older Diz-Explorer binary so that the Explorer Directory can be made?\n")
  123. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ Explorer binary so that the Explorer Directory can be made?\n")
  124. (set #Explorerfound "\nThe Installer has found a copy of Explorer already installed. What do you want to do?\n")
  125. (set #newicon "\nDo you wish to copy over The Diz-Explorer Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  126. (set #nonewicon  "No  - ToolTypes already set.")
  127. (set #yesnewicon "Yes - Copy over the old DIZ-Explorer Icon.")
  128. (set #whatcat "\nSelect the Explorer Language catalog you wish to install.\n")
  129. (set #wherecat "\nWhere do you wish to install the Explorer Language Catalog? There is no need for it yet. Default is ")
  130. (set #catnofind "Can not find this catalog in this Explorer archive. No need for it yet.")
  131. (set #whatdocs "\nWhat Explorer documentation would you like to install?\n")
  132. (set #wheredocs "Where would you like the Explorer documentation you selected to be installed?")
  133. (set #byebye (cat "\nDiz-Explorer Install Complete!\n\n" ))
  134. (set #setup_help
  135.         (cat
  136.             "Explorer needs an Assign in main directory to "
  137.             "properly setup. If you skip this pass you MUST "
  138.             "manually enter it later in your User-StartUp or "
  139.             "in a shell prior to run Explorer."
  140.         )
  141.     )
  142.  
  143.  
  144.  
  145. ;***********************************************************************
  146. ; The German Installation Strings for the Diz-Explorer
  147. ;***********************************************************************
  148.  
  149. (if (= lan 1)
  150. (
  151.  (set po 1)
  152.  
  153. (set #about (cat "\n\n\n\nWillkommen zum DIZ-Explorer PRO Version " Explorerver "\n\n\nCopyright © 1997,98 by\n\nJochen Grus & Martin Gentile\n") )
  154. (set #aboutpacker (cat "\n\n\n\nJetzt sollten Sie alle Packer in das >C< Verzeichnis installieren. Man sollte vorher die Versionen überprüfen! Es sind aber alle aktuellen Packer hier vorhanden! ") )
  155. (set #aboutdevices (cat "\n\n\n\nJetzt sollten Sie alle Devices in das >Devs< Verzeichnis installieren. Man sollte vorher die Versionen überprüfen! Es sind aber alle aktuellen Devices hier vorhanden! ") )
  156. (set #aboutlhacheck (cat "\n\n\n\n                - W A R N U N G -                                                                     Installation hat folgende Datei im C-Verzeichnis gefunden: LHACHECK. Sie sollten diese Datei entfernen, da es den VIRUS BBS-Trojan enthält!!! ") )
  157. (set #askcpu "\nFolgender Prozessor wurde vom Installer erkannt:\n")
  158. (set #askcpu2 "\nDer Installer hat einen Prozessor gefunden. Es müßte den richtigen Typ korrekt erkannt haben! \n")
  159. (set #whereExplorer "Wohin wollen Sie den DIZ-Explorer installieren ? Ein Verzeichnis 'Explorer' wird erzeugt, wenn es nicht existiert. Wenn bereits eine Explorer Version vorhanden ist, kann diese gesichert werden.")
  160. (set #filethere1 "\n\nDas Installationsprogramm hat eine Explorer Version gefunden")
  161. (set #filethere2 " at ")
  162. (set #filethere3 "\n\nDie Datei wird umbenannt in ")
  163. (set #filethere4 " und wird dann verschoben nach ")
  164. (set #backuptoXXX "sichern als Datei 'Diz-Explorer.")
  165. (set #copyover "alte Version überschreiben")
  166. (set #oktodelete1 "\nSind Sie damit einverstanden, daß das alte Diz-Explorer Hauptprogramm gelöscht, so daß das Explorer Verzeichnis erstellt werden kann?\n")
  167. (set #oktodelete2 "\nSind Sie damit einverstanden, daß das alte _umbenannte_ Explorer Hauptprogramm gelöscht wird, so daß das Explorer Verzeichnis erstellt werden kann?\n")
  168. (set #Explorerfound "\nDas Installationsprogramm hat bereits eine installierte Explorer Version gefunden. Was wollen Sie tun?\n")
  169. (set #newicon "\nWollen Sie das Diz-Explorer Piktogramm aus dem Archiv übernehmen? Wenn Sie bereits die Programmmerkmale verändert haben, wählen Sie bitte Nein.\n")
  170. (set #nonewicon  "Nein  - Programmmerkmale verändert.")
  171. (set #yesnewicon "Ja - Überschreibe das alte DIZ-Explorer Icon.")
  172. (set #whatcat "\nWählen Sie die Sprache, die installiert werden soll.\n")
  173. (set #wherecat "\nWohin wollen Sie die Explorer Sprachdatei installieren? Wird noch nicht gebraucht. Eingestellt ist ")
  174. (set #catnofind "Ich kann die passende Sprachdatei im Archiv nicht finden. Wird noch nicht gebraucht.")
  175. (set #whatdocs "\nWelche Anleitung zum Explorer wollen Sie installieren ?\n")
  176. (set #wheredocs "Wohin wollen Sie die gewählte Anleitung kopieren?")
  177. (set #byebye (cat "\nDie DIZ-Explorer Installation wurde erfolgreich abgeschlossen!""\n\nViel Spaß beim Entdizzen...\n\n" ))
  178. (set #setup_help
  179.         (cat
  180.             "Der Explorer braucht ein Assign um richtig arbeiten "
  181.             "zu können. Wenn Sie jetzt abbrechen müssen Sie später "
  182.             "diese Einträge manuell in der User-StartUp vornehmen "
  183.             "oder im Shell ein Assign herstellen um mit dem Explorer "
  184.                         "arbeiten zu können. "
  185.         )
  186.     )
  187.  
  188. ;***********************************************************************
  189. ; The Italiano Installation Strings
  190. ;***********************************************************************
  191. ;(set #setup1
  192. ;    (cat
  193. ;        "Per preparare l'ambiente del Explorer DEVO modificare la tua "
  194. ;        "User-StartUp aggiungendo i seguenti comandi:\n\n"
  195. ;    )
  196. ;)
  197. ;
  198. ;(set #setup2    "Se salti questo passo DOVRAI inserirli manualmente più tardi.")
  199. ;
  200. ;(set #setup_help
  201. ;    (cat
  202. ;        "Explorer necessita di un assegnamento alla sua directory "
  203. ;        "principale al fine di funzionare correttamente. Se "
  204. ;        "salti questo passo DOVRAI inserirlo manualmente nella "
  205. ;        "tua User-StartUp o in una shell prima di eseguire il Explorer."
  206. ;    )
  207. ;)
  208. ;
  209. ;Please make your own Strings for the installation...  Si! I will do it!
  210. ;
  211. ;***********************************************************************
  212. ; The Francais Installation Strings
  213. ;***********************************************************************
  214. ;
  215. ;Please make your own Strings for the installation..  Qui! je vais le faire!
  216. ;
  217. ;***********************************************************************
  218. ; The Svenska Installation Strings
  219. ;***********************************************************************
  220. ;
  221. ;Please make your own Strings for the installation...  Yo! I will do it!
  222. ;
  223. ;***********************************************************************
  224. ; The Norsk Installation Strings
  225. ;***********************************************************************
  226. ;
  227. ;Please make your own Strings for the installation...  Yo! I will do it!
  228. ;
  229. ;***********************************************************************
  230. ; The Nederlands Installation Strings
  231. ;***********************************************************************
  232. ;
  233. ;Please make your own Strings for the installation...  Yo! Ick do dat!
  234. ;
  235. ;***********************************************************************
  236. ; The Dansk Installation Strings
  237. ;***********************************************************************
  238. ;
  239. ;Please make your own Strings for the installation...  Yo! I will do it!
  240. ;
  241.  
  242. )
  243. )
  244.  
  245. ;***********************************************************************
  246. ; Tach Mädelz and Jungz !
  247. ;***********************************************************************
  248. (message #about)
  249. (welcome) 
  250. ;********************************************************************
  251. ; Checking the CPU - Hello CPU are you there???
  252. ;********************************************************************
  253.   (set cpu (database "cpu"))
  254. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 0))
  255. (if (= cpu 68020) (set #cpu 0)) (if (= cpu 68030) (set #cpu 0))
  256. (if (= cpu 68040) (set #cpu 1)) (if (= cpu 68060) (set #cpu 1)) 
  257. (if (= @installer-version 0)
  258.   (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 1) )
  259.   (if (= cpu 68060) (set #cpu 1))
  260.   (if (> (exists ("sys:libs/ppc.library")) 0) (set #cpu 2) )
  261.   (if (= cpu 68060) (set #cpu 1))
  262. )
  263.  
  264. (set cpuPick (askchoice (choices "68020 or 68030" "68040 or 68060" "PC603 or PC604")
  265.             (prompt #askcpu)
  266.                     (help   #askcpu2)
  267.                   (default #cpu)
  268.       )
  269. )
  270.  
  271. (if (= cpuPick 0) (set cpuadd ".020")) (if (= cpuPick 1) (set cpuadd ".040")) (if (= cpuPick 2) (set cpuadd ".ppc"))
  272.  
  273. ;***********************************************************************
  274. ; Ask where to put the DIZ-EXPLORER & Make w new directory if needed
  275. ;***********************************************************************
  276. (set Explorerdir  (askdir (prompt #whereExplorer)
  277.                 (help   #whereExplorer)
  278.                      (default "SYS:")
  279.                )  
  280. )
  281.  
  282. (set where Explorerdir)
  283.  
  284. ;***********************************************************************
  285. ; Check to see if the DIZ-EXPLORER is already there, if so ask to backup
  286. ;***********************************************************************
  287. (if (= 1 (exists (tackon where "Explorer") ) ) 
  288.   (
  289.     (set vernum1 (getversion (tackon where "Explorer") ))
  290.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  291.     (set Explorer_old (cat ver1 "." rev1))
  292.  
  293.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  294.                   (cat "Explorer" Explorer_old) #filethere4 (tackon Explorerdir "Explorer") )
  295.     )
  296.     
  297.  
  298.     (copyfiles (source (tackon where "Explorer"))
  299.                (dest where) 
  300.                (infos)
  301.                (newname (cat "Explorer." Explorer_old))
  302.     )
  303.     
  304.     (delete (tackon Explorerdir "Explorer") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  305.  
  306.     (if (< (exists (tackon Explorerdir "Explorer")) 2) (makedir (tackon Explorerdir "Explorer") (infos)) )    
  307.  
  308.     (copyfiles (source (tackon where (cat "Explorer." Explorer_old) ))
  309.                        (dest (tackon Explorerdir "Explorer")) 
  310.                        (infos)
  311.                
  312.     )
  313.  
  314.     (delete (tackon where (cat "Explorer" Explorer_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  315.  
  316.     ;(set firsttime 1)
  317.  
  318.   )
  319. )
  320.  
  321. (if (< (exists (tackon Explorerdir "Explorer")) 2) (makedir (tackon Explorerdir "Explorer") (infos)) )
  322. (set where (tackon Explorerdir "Explorer"))
  323. (set @default-dest where)
  324.  
  325. ;********************************************************************
  326. ; Check for the old one and backup it or not...
  327. ;********************************************************************
  328. (if (exists (tackon where "Explorer")) 
  329.   (
  330.       (set vernum1 (getversion (tackon where "Explorer") ))
  331.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  332.       (set Explorer_old (cat ver1 "2." rev1))
  333.  
  334.       (set keeper  (askchoice (choices  (cat #backuptoXXX Explorer_old "'")  #copyover)
  335.                      (prompt #Explorerfound)
  336.                  (help   #Explorerfound)
  337.                      (default 0)
  338.                )
  339.       )    
  340.  
  341.  
  342.       (if (= keeper 0)
  343.          (copyfiles (source (tackon where "Explorer"))
  344.                      (dest where) 
  345.                      (infos)
  346.                      (newname (cat "Explorer" Explorer_old))
  347.          )
  348.       )          
  349.  
  350.       (set firsttime 1)
  351.     
  352.   )
  353. )
  354.  
  355. ;********************************************************************
  356. ; Copy over the old Explorer file and Icon if wanted (Sure!)
  357. ;********************************************************************
  358. (copyfiles (source "Explorer") (dest where) (optional "nofail") )
  359.  
  360.  
  361. (if (= firsttime 0)  (copyfiles (source "Explorer.info") (dest where) (optional "nofail") ) )
  362.  
  363.  
  364. (if (OR (= keeper 0) (= (exists (tackon where "Explorer.info")) 0))
  365.   (
  366.   
  367.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  368.                            (prompt #newicon)
  369.                        (help   #newicon)
  370.                            (default 0)
  371.             )
  372.    )
  373.   
  374.    (if (= newicon 0) 
  375.      (copyfiles (source "Explorer.info") (dest where)  (optional "nofail") )
  376.    )
  377.  
  378.   )
  379.  
  380. )
  381.  
  382. ;********************************************************************
  383. ; Select and copy the packers to the C-Directory...     Goil
  384. ;********************************************************************
  385. (message #aboutpacker)
  386.  
  387.   (
  388.     (copyfiles
  389.       (prompt "Copying the packers")
  390.       (source "ram:explorer/c")
  391.       (all)
  392.       (dest "c:")
  393.       (confirm)
  394.       (help 
  395.         "This will copy the packers to the >C< directory. "
  396.         "If you copy it to the SYS:c directory, it will not check if there are newer versions! "
  397.         "But normally these are the right versions for you... "
  398.       )
  399.     )
  400. )
  401.  
  402. ;********************************************************************
  403. ; Checking the C-Directory for LhaCheck - Oh no... 
  404. ;********************************************************************
  405.    (if (exists "c:lhacheck")
  406. (message #aboutlhacheck))
  407.  
  408. ;********************************************************************
  409. ; Select and copy the devices to the Devs-Directory...   Joh Mann!  
  410. ;********************************************************************
  411. (message #aboutdevices)
  412.  
  413.   (
  414.     (copyfiles
  415.       (prompt "Copying the FMS- and DMS-Device")
  416.       (source "ram:explorer/devs")
  417.       (all)
  418.       (dest "devs:")
  419.       (confirm)
  420.       (help 
  421.         "This will copy the FMS- and the DMS-device to the >DEVS< directory. "
  422.         "If you copy it to the SYS:Devs directory, it will not check if there are newer versions! "
  423.         "But normally these are the right versions for you... "
  424.       )
  425.     )
  426. )
  427.  
  428. ;********************************************************************
  429. ; Ask and copy the documentations if wanted!
  430. ;********************************************************************
  431. (set docs (askoptions (choices " Explorer.guide" " DIZ-Explorer.txt" " Example-Amiga.list" " Example-PC.list")
  432.               (prompt #whatdocs)
  433.                       (help #whatdocs)
  434.       )
  435. )
  436.  
  437. (if (<> docs 0)
  438.  (
  439.    (set docsdir (askdir (prompt #wheredocs)
  440.                (help   #wheredocs)
  441.                     (default where)
  442.                 )  
  443.    )
  444.  
  445.    (if (IN docs 0) (copyfiles (source "Explorer.guide") (dest docsdir) (infos) (optional "nofail") ) )
  446.    (if (IN docs 0) (copyfiles (source "Diz-Explorer.txt") (dest docsdir) (infos) (optional "nofail") ) )
  447.    (if (IN docs 0) (copyfiles (source "Example-Amiga.list") (dest docsdir) (infos) (optional "nofail") ) )
  448.    (if (IN docs 0) (copyfiles (source "Example-PC.list") (dest docsdir) (infos) (optional "nofail") ) )
  449.    (run (cat "run SYS:utilities/AmigaGuide ram:explorer/explorer.guide") )
  450.  
  451.  )
  452.  
  453. )
  454. ;********************************************************************
  455. ; Modify User-Startup   - Wow! It work`s...
  456. ;********************************************************************
  457. (set #setup1
  458.         (cat "\n\n\nTo get Explorer work right there has to be made "
  459.         "some changes to your User-Startup !\n\n"
  460.         command1
  461.         )
  462. )
  463.  
  464. (if (= @language "deutsch") (
  465.  
  466. (set #setup1
  467.         (cat "\n\n\nUm mit Explorer richtig arbeiten zu können, muß "
  468.         "eine Änderung an der User-Startup vorgenommen werden.\n\n"
  469.         command1
  470.         )
  471. )
  472. ))
  473. (set #setup2
  474.         (cat
  475.             "If you skip this pass you MUST manually enter "
  476.             "it later."
  477.         )
  478.     )
  479.  
  480. (if (= @language "deutsch") (
  481.  
  482. (set #setup2
  483.         (cat
  484.             "Wenn Sie jetzt abrechen, müßen sie später die Änderung "
  485.             "manuell vornehmen !"
  486.         )
  487.     )
  488. ))
  489.  
  490. (startup "Explorer"
  491.         (prompt
  492.             (cat
  493.                 #setup1
  494.                 "Assign Explorer: \"" @default-dest "\"\n"
  495.                 "Path Explorer: ADD\n\n"
  496.                 #setup2
  497.             )
  498.         )
  499.         (help #setup_help)
  500.         (command
  501.             "Assign Explorer: \"" @default-dest "\"\n"
  502.             "Path Explorer: ADD\n"
  503.         )
  504.     )
  505.  
  506.  
  507. (working "\nDeleteing temporary files.")
  508. (run "Delete RAM:Explorer ALL FORCE QUIET")
  509. (run "Delete RAM:Explorer/c ALL FORCE QUIET")
  510. (run "Delete RAM:Explorer.info ALL FORCE QUIET")
  511.  
  512. (set #endnow (cat "Installation of Explorer completed.\n"
  513.     "When the lines:\n" command1 "\ndoesn`t appear "
  514.     "in your Startup-Sequence or User-Startup, "
  515.     "please do it manually.\n\n"
  516.     "Best wishes...\n\n"
  517.     "Jochen Grus & Martin Gentile"
  518.     ))
  519.  
  520. (if (= @language "deutsch") (
  521.  
  522.     (set #endnow (cat "\nInstallation von Explorer beendet.\n\n"
  523.         "Falls die Zeilen:\n" #setup1 "\nnicht in Ihre Startup-Sequence bzw. "
  524.         "User-Startup eingefügt wurde, dann holen Sie dies bitte nach.\n\n"
  525.         "\n\nWir wünschen ihnen viel Erfolg mit den Explorer!\n\n"
  526.         "Jochen Grus & Martin Gentile"
  527.     ))
  528. ))
  529.  
  530. ;********************************************************************************
  531. ; Ende - Bye - Fin - Finito - Fuck i must go now - see u in the next whisky bar. 
  532. ;********************************************************************************
  533.  
  534. (procedure Explor (set JOH 1) ( (while (< JOH 4444)  (set JOH (+ JOH 1)) )  ) )
  535.  
  536. (procedure InformX
  537. (working (cat "\n\n"
  538.               " LHA  TAR\n"
  539.               " LZX  TGZ\n"
  540.               " DMS  EXE\n"
  541.               " ARJ  SIT\n"
  542.               " ARC  LZH\n"
  543.               " ZOO  RAR\n"
  544.               " ZIP  LZ\n"
  545.               " \n"
  546.          )           
  547. )
  548. )
  549. (procedure InformY
  550. (working (cat "\n\n"
  551.               "\n"
  552.               "\n"
  553.               "Diz-Explorer Pro Version 3.2\n"
  554.               "\n"
  555.               "by\n"
  556.               "\n"
  557.               "   Jochen Grus & Martin Gentile   \n"
  558.               "\n"
  559.          )           
  560. )
  561. )
  562. (InformY)
  563.  
  564. (Explor)(Explor)
  565. (InformX)(Explor)
  566. (InformY)(Explor) (InformX)(Explor)
  567. (InformY)(Explor) (InformX)(Explor)
  568. (InformY)(Explor) (InformX)(Explor)
  569. (InformY)(Explor) (InformX)(Explor)
  570. (InformY)(Explor) (InformX)(Explor)
  571. (InformY)(Explor) (InformX)(Explor)
  572. (InformY)(Explor) (InformX)(Explor)
  573. (InformY)(Explor) (Explor) (Explor)
  574.  
  575. (exit #byebye)
  576.